From: Kenichi Handa <handa@m17n.org>
Date: Fri, 15 Oct 2010 00:41:53 +0000 (+0900)
Subject: international/characters.el: Add category '|' (word breakable) to fullwidth characters.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18^2~16^2~34
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9e7b508bad246aeee59877f88bd9162efbe40075;p=emacs.git

international/characters.el: Add category '|' (word breakable) to fullwidth characters.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23531c4157f..f759ab8a748 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-15  Kenichi Handa  <handa@m17n.org>
+
+	* international/characters.el: Add category '|' (word breakable)
+	to fullwidth characters.
+
 2010-10-14  Kenichi Handa  <handa@m17n.org>
 
 	* mail/rmail.el (rmail-show-message-1): Catch an error of
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index cf43bb1e6ca..e33f1449357 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -188,6 +188,9 @@ Combining diacritic or mark (Unicode General Category M)")
 			       cp932-2-byte))
   (map-charset-chars #'modify-category-entry l ?j))
 
+;; Fullwidth characters
+(modify-category-entry '(#xff01 . #xff60) ?\|)
+
 ;; Unicode equivalents of JISX0201-kana
 (let ((range '(#xff61 . #xff9f)))
   (modify-category-entry range  ?k)